home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK example progs / $Split_Test < prev    next >
Encoding:
Text File  |  1994-01-26  |  890 b   |  46 lines  |  [TEXT/KEEN]
  1. #$Split_Test : what does it do with oddball cases?
  2.  
  3. BEGIN {
  4.     a = "\n\n\n"
  5.     print "n = split(\"\\n\\n\\n\", arr, \"\\n\")"
  6.     n = split(a, arr, "\n")
  7.     print n
  8.     for (i = 1; i <= n; ++i)
  9.         print arr[i]
  10.     
  11.     a = "\nabc"
  12.     print "n = split(\"\\nabc\", arr, \"\\n\")"
  13.     n = split(a, arr, "\n")
  14.     print n
  15.     for (i = 1; i <= n; ++i)
  16.         print arr[i]
  17.     
  18.     a = "\n\nabc"
  19.     print "n = split(\"\\n\\nabc\", arr, \"\\n\")"
  20.     n = split(a, arr, "\n")
  21.     print n
  22.     for (i = 1; i <= n; ++i)
  23.         print arr[i]
  24.     
  25.     a = "a\n\nbc"
  26.     print "n = split(\"a\\n\\nbc\", arr, \"\\n\")"
  27.     n = split(a, arr, "\n")
  28.     print n
  29.     for (i = 1; i <= n; ++i)
  30.         print arr[i]
  31.     
  32.     a = "abc\n"
  33.     print "n = split(\"abc\\n\", arr, \"\\n\")"
  34.     n = split(a, arr, "\n")
  35.     print n
  36.     for (i = 1; i <= n; ++i)
  37.         print arr[i]
  38.     
  39.     a = "abc\n\n"
  40.     print "n = split(\"abc\\n\\n\", arr, \"\\n\")"
  41.     n = split(a, arr, "\n")
  42.     print n
  43.     for (i = 1; i <= n; ++i)
  44.         print arr[i]
  45.     }
  46.